home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / fun / xsel < prev   
Encoding:
Text File  |  1996-09-27  |  503 b   |  21 lines
  1. ;OCL{{{}}}
  2. ;OCL{{{  comments
  3. ; this macro uses the environement-variable $GETSELECTION to get the
  4. ; window-system-dependent selection and puts it into the text.
  5. ;OCL}}}
  6. @if-using not(ocl-file-xsel)
  7.   @use (ocl-file-xsel)
  8.   ;OCL{{{  get-x-selection
  9.   ( deffun get-x-selection
  10.      ( if not(in-prompt)
  11.         ( local ( force-bourne-shell )
  12.            ( set force-bourne-shell true
  13.              pipe-from-command "$GETSELECTION newline-and-indent
  14.            )
  15.         )
  16.        fi
  17.      )
  18.   )
  19.   ;OCL}}}
  20. @fi
  21.